home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / docume1a / enabledd < prev    next >
Text File  |  1999-09-10  |  4KB  |  93 lines
  1. Attribute VB_Name = "EnabledDisabled"
  2.  
  3.  Public Function ControlsEnabled()
  4.  With MDIForm1
  5.      .mnuSelectAll.Enabled = True
  6.      .mnuTimeDate.Enabled = True
  7.      .Combo2.Enabled = True
  8.      .mnuDelete.Enabled = True: MDIForm1.Toolbar1.Buttons(5).Enabled = True
  9.      .mnuPrintPreview.Enabled = True: MDIForm1.Toolbar1.Buttons(7).Enabled = True
  10.      .mnuPrint.Enabled = True: MDIForm1.Toolbar1.Buttons(6).Enabled = True
  11.      .mnuCut.Enabled = True: MDIForm1.Toolbar1.Buttons(12).Enabled = True
  12.      .mnuCopy.Enabled = True: MDIForm1.Toolbar1.Buttons(13).Enabled = True
  13.      .mnuPaste.Enabled = True: MDIForm1.Toolbar1.Buttons(14).Enabled = True
  14.      .mnuFind.Enabled = True
  15.      .mnuReplace.Enabled = True
  16.      .Toolbar1.Buttons(18).Enabled = True
  17.      .mnuFormatText.Enabled = True
  18.      .mnuSpelling.Enabled = True: MDIForm1.Toolbar1.Buttons(16).Enabled = True
  19.      .mnuWordCount.Checked = False
  20.      .mnuWordCount.Enabled = True
  21.      .Toolbar1.Buttons(22).Enabled = True
  22.      .Toolbar1.Buttons(22).Value = tbrUnpressed
  23.      .Toolbar1.Buttons(23).Enabled = True
  24.      .Toolbar1.Buttons(23).Value = tbrUnpressed
  25.      .Toolbar1.Buttons(24).Enabled = True
  26.      .Toolbar1.Buttons(24).Value = tbrUnpressed
  27.      .Toolbar1.Buttons(25).Enabled = True
  28.      .Toolbar1.Buttons(25).Value = tbrUnpressed
  29.      .Toolbar1.Buttons(29).Enabled = True
  30.      .Toolbar1.Buttons(29).Value = tbrUnpressed
  31.      .Toolbar1.Buttons(30).Enabled = True
  32.      .Toolbar1.Buttons(30).Value = tbrUnpressed
  33.      .Toolbar1.Buttons(31).Enabled = True
  34.      .Toolbar1.Buttons(31).Value = tbrUnpressed
  35.  End With
  36.  frmOpenDoc.RichTextBox1.Enabled = True
  37.  End Function
  38.  Public Function ControlsDisabled()
  39.  boolsave = False
  40.  With MDIForm1
  41.      .StatusBar1.Panels(1).Text = ""
  42.      .StatusBar1.Panels(4).Text = ""
  43.      .StatusBar2.Visible = False
  44.      .mnuSelectAll.Enabled = False
  45.      .mnuTimeDate.Enabled = False
  46.      .Combo2.Enabled = False
  47.      .mnuDelete.Enabled = False: MDIForm1.Toolbar1.Buttons(5).Enabled = False
  48.      .mnuPrintPreview.Enabled = False: MDIForm1.Toolbar1.Buttons(7).Enabled = False
  49.      .mnuPrint.Enabled = False: MDIForm1.Toolbar1.Buttons(6).Enabled = False
  50.      .mnuCut.Enabled = False: MDIForm1.Toolbar1.Buttons(12).Enabled = False
  51.      .mnuCopy.Enabled = False: MDIForm1.Toolbar1.Buttons(13).Enabled = False
  52.      .mnuPaste.Enabled = False: MDIForm1.Toolbar1.Buttons(14).Enabled = False
  53.      .mnuFind.Enabled = False
  54.      .mnuReplace.Enabled = False
  55.      .Toolbar1.Buttons(18).Enabled = False
  56.      .mnuFormatText.Enabled = False
  57.      .mnuSpelling.Enabled = False: MDIForm1.Toolbar1.Buttons(16).Enabled = False
  58.      .mnuWordCount.Enabled = False
  59.      .mnuWordCount.Checked = False
  60.      .mnuSave.Enabled = False: MDIForm1.Toolbar1.Buttons(3).Enabled = False
  61.      .mnuSaveAs.Enabled = False: MDIForm1.Toolbar1.Buttons(4).Enabled = False
  62.      .Toolbar1.Buttons(22).Enabled = False
  63.      .Toolbar1.Buttons(23).Enabled = False
  64.      .Toolbar1.Buttons(24).Enabled = False
  65.      .Toolbar1.Buttons(25).Enabled = False
  66.      .Toolbar1.Buttons(29).Enabled = False: MDIForm1.Toolbar1.Buttons(29).Value = tbrUnpressed
  67.      .Toolbar1.Buttons(30).Enabled = False: MDIForm1.Toolbar1.Buttons(30).Value = tbrUnpressed
  68.      .Toolbar1.Buttons(31).Enabled = False: MDIForm1.Toolbar1.Buttons(31).Value = tbrUnpressed
  69.      .Toolbar1.Buttons(22).Value = 0
  70.      .Toolbar1.Buttons(23).Value = 0
  71.      .Toolbar1.Buttons(24).Value = 0
  72.      .Toolbar1.Buttons(25).Value = 0
  73.      .Toolbar1.Buttons(29).Value = 0
  74.      .Toolbar1.Buttons(30).Value = 0
  75.      .Toolbar1.Buttons(31).Value = 0
  76.  End With
  77.  frmFind.Hide
  78.  frmReplace.Hide
  79.  With frmOpenDoc
  80.      .RichTextBox1.Font.Size = 8
  81.      .RichTextBox1.Text = ""
  82.      .RichTextBox1.Enabled = False
  83.      .Caption = ""
  84.      .Visible = False
  85.      .WindowState = 0
  86.  End With
  87.  Unload frmOpenDoc
  88.  End Function
  89.  
  90.  
  91.  
  92.  
  93.